     ;D=COUNT
  DO  D {
  (BC)=(HL)
  INC HL
  INC BC
  EXX
  DEC HL
  IF  HL=0 THEN EXX RET
  EXX
  }
  JR  LP02

@KAKE ; HL*DE  =HL
  LD  A,16
  LD  BC,HL
  LD  HL,0

@M